home *** CD-ROM | disk | FTP | other *** search
/ Pulp 2 / Pulp_02_1999_POL_de.d64 / n3B.CCCCC. B (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  89 lines
  1. 0 gosub6:dimw$(300):poke53281,0:poke53280,0:poke650,128:
  2. 1 fori=1to15:poke211,0:poke214,i:sys58640
  3. 3 print"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  4. 4 poke211,0:poke214,16:sys58640:print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  5. 5 goto10
  6. 6 poke53265,peek(53265)and239:return
  7. 7 poke53265,peek(53265)or 16:return
  8. 10 forr=0to60:reada$:w$(r)=a$:next
  9. 11 poke211,0:poke214,17:sys58640:
  10. 12 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:u$="mag"
  11. 13 print"[213][203][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [202][201]";
  12. 14 print"[194][155]       [176][195][195][174] [176][195][195][195][174] [176][195][195][174] [195][178][195] [176]   [176]      [194]";
  13. 15 print"[194]       [171][195][195][189] [171][195][195][195][179] [171][195][178][189]  [194]  [173][195][178][195][189]      [194]";
  14. 16 print"[194][155]       [173]    [173]   [189] [173] [173][189]  [173]    [173]        [194]";
  15. 17 print"[202][201][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [213][203]";
  16. 18 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] ";:u$="mag"
  17. 20 x=0:y=-1
  18. 21 fori=1to15:poke211,1:poke214,i:sys58640:print"[154]"w$(x+i):next:gosub7:goto22
  19. 22 geta$:
  20. 23 ifa$=chr$(13)then50
  21. 24 if a$="."andx<60thenx=x+15:goto21
  22. 25 if a$=","andx>0thenx=x-15:goto21
  23. 26 goto22
  24. 50 poke828,0:printchr$(147)chr$(17):print"[144]load"chr$(34)"m1*"chr$(34)",8"
  25. 51 printchr$(17)chr$(17)chr$(17)chr$(17)"run"
  26. 52 poke631,13:poke632,13:poke198,2
  27. 53 printchr$(19);:end
  28. 100 data"                                    "
  29. 101 data" [209][209][209] [209][209][209] [209]  [209] [209][209][209] [209] [209] [209][209][209] [209][209][209] [209][209][209] ' s "
  30. 102 data" [209]   [209] [209] [209][209][209][209] [209] [209] [209] [209]  [209]  [209]   [209] [209]     "
  31. 103 data" [209]   [209] [209] [209]  [209] [209][209][209] [209] [209]  [209]  [209][209]  [209][209][209]     "
  32. 104 data" [209]   [209] [209] [209]  [209] [209]   [209] [209]  [209]  [209]   [209][209]      "
  33. 105 data" [209][209][209] [209][209][209] [209]  [209] [209]   [209][209][209]  [209]  [209][209][209] [209] [209]     "
  34. 106 data"                                      "
  35. 107 data"             hell '99                 "
  36. 108 data"                                      "
  37. 109 data"                                      "
  38. 110 data" infotext zur groessten c-64 party in "
  39. 111 data"                                      "
  40. 112 data" berlin. 2 naechte und 2 tage hoelle! "
  41. 113 data"                                      "
  42. 114 data"                                      "
  43. 115 data"tja, nun ist es also so weit. die ers-"
  44. 116 data"te c-64 in berlin. der genauere hin-  "
  45. 117 data"tergrund liegt darin, den leuten mal  "
  46. 118 data"zu zeigen, dass auch wir hier parties "
  47. 119 data"machen koennen und wollen. ausserdem  "
  48. 120 data"suchen wir und wohl die gesamte scene "
  49. 121 data"nach weiteren c-64 freaks. vielleicht "
  50. 122 data"'wecken' wir damit weitere wieder auf!"
  51. 124 data"platz bietet ein gemieteter jugendclub"
  52. 125 data"der uns fuer 2 tage zur verfuegung    "
  53. 126 data"steht. genauere daten folgen jetzt:   "
  54. 127 data"beginn:                               "
  55. 128 data"am 21. mai (freitag) um 18.00         "
  56. 129 data"ende:                                 "
  57. 130 data"am 23. mai (sonntag) um 15.00         "
  58. 131 data"ort:                                  "
  59. 132 data"berlin - hellersdorf                  "
  60. 133 data"auerbacher ring 25                    "
  61. 134 data"naehe ubhf cottbusser platz (u5)      "
  62. 135 data"name des clubs: [154]u5                    "
  63. 136 data"                                      "
  64. 137 data"was muss ich mitnehmen:               "
  65. 138 data"neuer stuff waere natuerlich nicht    "
  66. 139 data"schlecht. was die hardware betrifft,  "
  67. 140 data"so waere es schoen, wenn ihr etwas da-"
  68. 141 data"zubeitagen wuerdet, den raum zu fuel- "
  69. 142 data"len. schlafzeug (?!?) kann muss aber  "
  70. 143 data"nicht !!!!                            "
  71. 144 data"                                      "
  72. 145 data"was kostet das ganze :                "
  73. 146 data"das kommt auf die besucheranzahl an !!"
  74. 147 data"gekostet hat das haus 300/350 dm. die-"
  75. 148 data"sen betrag teilen wir unter den besu- "
  76. 149 data"chern auf !!!! (30 leute = 10 dm !!!) "
  77. 150 data"                                      "
  78. 151 data"bei wem melde ich mich an:            "
  79. 152 data"spontanbesuche sind natuerlich auch ok"
  80. 153 data"allerdings waere es besser, mich noch-"
  81. 154 data"mal anzurufen (weitere info etc) !!!!!"
  82. 155 data"mich, damit ist lost brain gemeint:   "
  83. 156 data"[158](030)  56498321[154]  erst ab 20 uhr !!!  "
  84. 157 data"                                      "
  85. 158 data"das mit verpflegung und so weiter wird"
  86. 159 data"noch geklaert. notfalls befinden sich "
  87. 160 data"aber genuegend buden in naher naehe !!"
  88. 161 data"also, ich hoffe auf euren besuch.     "
  89.